home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1997 May / PC Plus Super CD Issue 127 (May 1997).iso / delphi2 / delphite.exe / data.z / ABOUT.DFM / ABOUT.txt next >
Encoding:
Text File  |  1996-08-12  |  4.6 KB  |  163 lines
  1. object FmAboutBox: TFmAboutBox
  2.   Left = 274
  3.   Top = 158
  4.   BorderStyle = bsDialog
  5.   Caption = 'About'
  6.   ClientHeight = 403
  7.   ClientWidth = 419
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Position = poScreenCenter
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object Panel1: TPanel
  16.     Left = 8
  17.     Top = 8
  18.     Width = 402
  19.     Height = 73
  20.     BevelInner = bvRaised
  21.     BevelOuter = bvLowered
  22.     TabOrder = 0
  23.     object ProgramIcon: TImage
  24.       Left = 8
  25.       Top = 8
  26.       Width = 65
  27.       Height = 57
  28.       Picture.Data = {<image000.bmp>}
  29.       Stretch = True
  30.       IsControl = True
  31.     end
  32.     object ProductName: TLabel
  33.       Left = 88
  34.       Top = 16
  35.       Width = 119
  36.       Height = 13
  37.       Caption = 'Database Errors Example'
  38.       IsControl = True
  39.     end
  40.     object Version: TLabel
  41.       Left = 88
  42.       Top = 40
  43.       Width = 53
  44.       Height = 13
  45.       Caption = 'Version 1.0'
  46.       IsControl = True
  47.     end
  48.   end
  49.   object Panel2: TPanel
  50.     Left = 9
  51.     Top = 88
  52.     Width = 401
  53.     Height = 73
  54.     TabOrder = 1
  55.     object Label2: TLabel
  56.       Left = 22
  57.       Top = 8
  58.       Width = 194
  59.       Height = 13
  60.       Caption = 'Data Model  - Referential Integrity'
  61.       Font.Color = clWindowText
  62.       Font.Height = -11
  63.       Font.Name = 'MS Sans Serif'
  64.       Font.Style = [fsBold]
  65.       ParentFont = False
  66.     end
  67.     object Image1: TImage
  68.       Left = 18
  69.       Top = 24
  70.       Width = 325
  71.       Height = 46
  72.       Picture.Data = {<image001.bmp>}
  73.     end
  74.   end
  75.   object Memo1: TMemo
  76.     Left = 9
  77.     Top = 168
  78.     Width = 401
  79.     Height = 193
  80.     Font.Color = clBlack
  81.     Font.Height = -11
  82.     Font.Name = 'MS Sans Serif'
  83.     Font.Style = [fsBold]
  84.     Lines.Strings = (
  85.       'This example demonstrates'
  86.       ''
  87.       '  - The use of Data Modules to centralize coding'
  88.       '  - A one-to-many-to-many form'
  89.       '  - Trapping and Controlling Database Errors'
  90.       ''
  91.       '* Creation Order'
  92.       ''
  93.       'The proper functioning of any form with a one-to-many '
  94.       'relationship depends on the creation order of TTables and '
  95.       'TDatasources at runtime. In this example, the MasterSource '
  96.       'property of the Orders table point to CustomerSource. For the '
  97.       'one-to-many link to properly synch up, the Customer table must '
  98.       'be active. The creation order is determined at design'
  99.       'time by right-clicking on the form and choosing Creation Order.'
  100.       ''
  101.       '* Database Error Trapping'
  102.       ''
  103.       'Delphi displays errors that arise from user interaction with '
  104.       'database tables as application level exceptions. The new '
  105.       'OnPostError, OnEditError and OnDeleteError events of '
  106.       'the TTable and TQuery objects allow you to trap these '
  107.       'errors closer to their origin. '
  108.       ''
  109.       
  110.         'To trigger these errors, run this application, and try to modify' +
  111.         ','
  112.       'add, or delete records. '
  113.       ''
  114.       'You may encounter several different database engine'
  115.       'errors: key violations, missing  required fields, referential'
  116.       'integrity errors, incorrect foreign keys (most notably from '
  117.       
  118.         'the '#39'parts.db'#39' table, which is not explicitly in this applicatio' +
  119.         'n), '
  120.       'and so on. '
  121.       ''
  122.       'General Notes:'
  123.       ''
  124.       ' The code in this example for the OnDeleteError on the Orders '
  125.       
  126.         '  table allows you to delete the current Orders record even if i' +
  127.         't '
  128.       '  has dependent details. If this error occurs, a dialog box'
  129.       '  asks you if you want to remove the Orders record and all'
  130.       
  131.         '  of its details. If this is action confirmed,  the code deletes' +
  132.         ' all'
  133.       '  of the related Items records and then completes the action'
  134.       '  by retrying the deletion for the current record. '
  135.       ''
  136.       '  The OnPostError, OnEditError and OnDeleteError pass to you'
  137.       '  an exception (e) of the EDatabaseError class. To get '
  138.       '  engine-level errorcodes, you must cast this as an error of'
  139.       '  type EDBEngineError.  See the code in DM.PAS for details.'
  140.       ''
  141.       '  The CustNo *Tfield* has min and max values. These are'
  142.       '  NOT database engine-level Min and Max Valchecks and so'
  143.       '  errors that arise from invalid entries are not caught by the '
  144.       '  engine errors trapped for here.')
  145.     ParentFont = False
  146.     ReadOnly = True
  147.     ScrollBars = ssVertical
  148.     TabOrder = 2
  149.     WantReturns = False
  150.   end
  151.   object Button1: TButton
  152.     Left = 173
  153.     Top = 368
  154.     Width = 75
  155.     Height = 25
  156.     Cancel = True
  157.     Caption = 'OK'
  158.     Default = True
  159.     ModalResult = 2
  160.     TabOrder = 3
  161.   end
  162. end
  163.